home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / progjrn / pj_6_1.arc / WHETLIN.ARC / SECONDI.FOR < prev    next >
Encoding:
Text File  |  1987-12-22  |  242 b   |  12 lines

  1. *    a TIME function for INTEL FORTRAN86 and DRI Fortran
  2. *
  3. *    Author:    M. Steven Baker
  4. *    Date:    November 22, 1986
  5. *
  6.        real function second()
  7.        integer*4 TIME18
  8.        external TIME18  
  9.        second = TIME18()/18.2
  10.        end
  11.  
  12.